home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Logoff Options 1.xpl < prev    next >
Text File  |  1999-09-03  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Network\Logoff"
  5. "NAME"="Windows 9x Options"
  6. "VERSION"="1.20"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Restart in MS-DOS mode" in logoff menu"
  9. "TEXT 2"="Enable "Fast ShutDown""
  10. "DESCRIPTION 1"="If you want to hide the selection to restart in MS-DOS mode, deactivate the first option."
  11. "DESCRIPTION 2"="Enable the "Fast ShutDown" option ONLY if you have a modern computer, on some older computers it is possible that activating this option crashes your computer. In this case, deactivate the option again."
  12. "DESCRIPTION 3"="The Fast ShutDown option is only for Windows 98 and Windows 98 Second Edition.  It allows some computers to shut down or restart much more quickly if enabled."
  13. "DESCRIPTION 4"="Most Windows 98 computers can run fine with it enabled and save time.  If your computer freezes during shut down, simply disable this option next time you open X-Setup."
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  17. "COMMENT 2"="Thanks to AXCEL216 for the setting and CptSiskoX for his help!"
  18.  
  19.  
  20. sNRM="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\NoRealMode" 'DWORD
  21. sFRB="HKLM\System\CurrentControlSet\control\Shutdown\FastReboot" 'STR: 1=ON
  22. Sub Plugin_Initialize 
  23.  If GetWinVer=1 or GetWinVer=3 then
  24.     i=RegReadValue(sNRM)
  25.     if i=0 or IsEmpty(i) then 
  26.        SetUIElement 1,true
  27.     end if
  28.  
  29.     i=RegReadValue(sFRB)
  30.     if i=1 then 
  31.        SetUIElement 1,true
  32.     end if
  33.      
  34.  
  35.  else
  36.     Call Disable()
  37.  end if
  38. End Sub
  39.  
  40.  
  41. Sub Plugin_CheckData(ElementIndex)
  42. End Sub
  43.  
  44.  
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  b=GetUIElement(1)
  48.  if b=true then
  49.     s=RegReadValue(sNRM)
  50.     if isempty(s)=false then
  51.        Call RegDeleteValue(sNRM)
  52.     end if
  53.  else
  54.   Call RegWriteValue(sNRM,1,2)
  55.  end if
  56.  
  57.  b=GetUIElement(2)
  58.  if b=true then
  59.     Call RegWriteValue(sFRB,"1",1)
  60.  else
  61.     Call RegWriteValue(sFRB,"0",1)
  62.  end if
  63.  
  64.  
  65.  Call Restart()
  66. End Sub
  67.  
  68.  
  69. Sub Plugin_Terminate 
  70. End Sub
  71.  
  72.  
  73.  
  74.